home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Rexx / ShowGlobal.ecfg < prev    next >
Text File  |  2000-05-08  |  2KB  |  72 lines
  1. /*****************************************************************
  2. **                                                              **
  3. **      ShowGlobal.ecfg                 EuraConfig-Script       **
  4. **      Zeigt globale Informationen                             **
  5. **                                                              **
  6. ******************************************************************
  7. **
  8. **      V1.0 -- (C) 1997 Richard Körber -- All Rights Reserved
  9. **
  10. **/
  11.  
  12. OPTIONS RESULTS
  13. OPTIONS FAILAT 6
  14. IF Left(Address(),10)~='EURACONFIG' THEN ADDRESS 'EURACONFIG.1'
  15.  
  16. /*---- SCRIPT STARTS HERE --------------------------------------*/
  17.  
  18. 'VERSION CHECK=3'               /* Richtige Kommando-Version? */
  19.  
  20. flags.0 = "Nein"                /* BOOL -> Text */
  21. flags.1 = "Ja"
  22.  
  23. modus.0 = "Einzelanlage"        /* Anlagenmodus */
  24. modus.1 = "Nah-Unteranlage"
  25. modus.2 = "Fern-Unteranlage"
  26. modus.3 = "Vernetzt (Master)"
  27. modus.4 = "Vernetzt (Slave)"
  28.  
  29. moh.0   = "Aus"                 /* Wartemusik */
  30. moh.1   = "Intern"
  31. moh.2   = "Extern"
  32.  
  33. ava.0   = "Variante 1"          /* Anrufvariante */
  34. ava.1   = "Variante 2"
  35.  
  36.  
  37. /*--- Die Auswertung beginnt hier ---*/
  38. DO ix = 0 TO 13                  /* Alle Daten auslesen und in einen Stem eintragen */
  39.   'GLOBAL "'||ix||'"'
  40.   glb.ix = result
  41. END
  42.  
  43. hilf = glb.0
  44. SAY Left("Modus",30)||":" modus.hilf
  45. SAY Left("Hauptanlagen-Nr",30)||":" glb.1
  46. SAY Left("Rufweiterschaltung",30)||":" glb.2 "s"
  47. hilf = glb.3
  48. SAY Left("Autom. Amtsholung",30)||":" flags.hilf
  49. SAY Left("Gebühren-Grundpreis",30)||":" glb.4 "Pfg"
  50. SAY Left("Zeilen pro Seite",30)||":" glb.5
  51. hilf = glb.6
  52. SAY Left("Wartemusik",30)||":" moh.hilf
  53. hilf = glb.7
  54. SAY Left("Rufweitergabe",30)||":" flags.hilf
  55. hilf = glb.8
  56. SAY Left("98,99 reserviert",30)||":" flags.hilf
  57. hilf = glb.9
  58. SAY Left("Privatgespräche",30)||":" flags.hilf
  59. hilf = glb.10
  60. SAY Left("Anrufvariante",30)||":" ava.hilf
  61. SAY Left("Nachricht",30)||":" glb.11
  62. /* SAY Left("Geheimcode",30)||":" glb.12 */
  63. SAY Left("Hotline",30)||":" glb.13
  64.  
  65. SAY ""
  66. SAY ""
  67.  
  68. /*---- SCRIPT ENDS HERE ----------------------------------------*/
  69.  
  70. EXIT
  71.  
  72.